0 POKE808,234
1 CLR:DIMPR$(144):DIMV$(33)
2 POKE53280,0:POKE53281,0:POKE646,15:GOTO17
3 PRINT"":FORI=0TO15:FORJ=0TONC:PRINTTAB(J*20);SPC(1);V$(I+J*16);
4 NEXTJ:PRINT:NEXTI:POKE198,0:RL%=0:CL%=0:GOSUB16
5 GETCC$:ON-(CC$="")GOTO5:Z%=ASC(CC$):TC%=CL%:TR%=RL%
6 IF(Z%AND127)=29THENCL%=(CL%+1+2*(Z%=157))ANDNC
7 IF(Z%AND127)=17THENRL%=(RL%+1+2*(Z%=145))AND15
8 IFZ%=13THENR$="NEXT":RETURN
9 IFZ%=133THENR$="LIST":RETURN
10 IFZ%=135THENR$="?"+CHR$(34)+"[147]"+CHR$(34):RETURN
11 IFZ%=136THENR$="RUN":RETURN
12 IFV$(RL%+CL%*16)=""THEN:GOTO6
13 IF(TC%<>CL%)OR(TR%<>RL%)THENGOSUB15
14 GOTO 5
15 POKE214,TR%+2:PRINT:PRINTTAB(TC%*20);SPC(1);V$(TR%+16*TC%)
16 POKE214,RL%+2:PRINT:PRINTTAB(CL%*20);SPC(1);"";V$(RL%+16*CL%):RETURN
17 PRINT"[147]":NC=1:NV=(NC+1)*16-1:MA=-1
18 PRINT"           LOADING DIRECTORY"
19 OPEN15,8,15,"I":INPUT#15,E1$,E2$,E3$,E4$
20 IFE1$<>"00"THENPRINT"[147]ERROR:"E1$;E2$;E3$;E4$:END
21 POKE53265,PEEK(53265)AND239:CLOSE15:OPEN 15,8,15,"UI-":OPEN2,8,2,"#"
22 PRINT#15,"U1: 2 0 18 0":PRINT#15,"B-P";2;144:HE$=""
23 FORX=1TO16:GET#2,X$:HE$=HE$+X$:NEXT
24 PRINT#15,"B-P";2;162:ID$=""
25 FORX=1TO2:GET#2,X$:ID$=ID$+X$:NEXT
26 CLOSE2:CLOSE15
27 HE$="NAME:"+HE$:HE$=HE$+"ID:"+ID$+"  V1.0"
28 OPEN 15,8,15,"I0":OPEN2,8,2,"#":T=18:S=1
29 PRINT#15,"U1:";2;0;T;S:PRINT#15,"B-P";2;0
30 GET#2,T$,S$:T$=T$+CHR$(0):T=ASC(T$):S$=S$+CHR$(0):S=ASC(S$)
31 FORX=0TO7:PRINT#15,"B-P";2;X*32+2
32 GET#2,X$,T$,S$:X$=X$+CHR$(0):A%=ASC(X$)AND15:IFA%<>2THEN34
33 MA=MA+1:FORY=0TO15:GET#2,X$:PR$(MA)=PR$(MA)+X$:NEXT Y
34 NEXT X:IF T=0THEN36
35 GOTO29
36 CLOSE2::PRINT#15,"UI+":CLOSE15:POKE53265,PEEK(53265)OR16
37 NP=0:SL=0
38 SL=SL+NP:NP=MA-SL+1:IFNP>NVTHENNP=NV
39 IFNP=0THEN43
40 FORI=1TONV:V$(I)="":NEXT:FORI=0TONP:V$(I)=PR$(SL+I):NEXT:GOSUB58
41 GOSUB3:IFR$="NEXT"THEN38
42 POKE139,128:GOTO51
43 GOSUB70
44 V$(1)="SEE NEW DISK":V$(2)="RESTART THIS DISK":V$(3)="QUIT"
45 NP=3:GOSUB83
46 ON RL% GOSUB 48,49,50
47 GOTO 43
48 RUN
49 NC=1:GOTO37
50 PRINT"[147]":END
51 POKE53265,PEEK(53265)AND239:CLOSE15:OPEN 15,8,15,"UI-":CLOSE15
52 PRINT"[147]LOAD"CHR$(34)V$(RL%+16*CL%)CHR$(34)",8,1"
53 PRINT"P[207]53265,P[197](53265)OR16:O[208]15,8,15,"CHR$(34)"UI+"CHR$(34)":"R$
54 POKE631,19:POKE632,13:POKE633,13:POKE198,3:END
55 REM*----------------------------*
56 REM* OUTPUT MENU SCREEN         *
57 REM*----------------------------*
58 PRINTCHR$(142);:PRINT"[147][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
59 PRINT"[194]";TAB((40-LEN(HE$))/2)HE$;TAB(38)"[194]"
60 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
61 FORX=1TO16:PRINT"[194]";TAB(19)"[194]";TAB(38)"[194]":NEXT
62 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][177][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
63 FORX=1TO2:PRINT"[194]";TAB(38)"[194]":NEXT
64 BM$="F1=LOAD/LIST  F5=LOAD  F7=LOAD/RUN":
65 XT=(40-LEN(BM$))/2:PRINT"[194]";TAB(XT)BM$;TAB(38)"[194]"
66 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]":RETURN
67 REM*----------------------------*
68 REM* OUTPUT MAIN SCREEN         *
69 REM*----------------------------*
70 PRINTCHR$(142);:PRINT"[147][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
71 TM$="NO MORE PROGRAMS ON DISK DUDE!"
72 PRINT"[194]";TAB((40-LEN(TM$))/2)TM$;TAB(38)"[194]"
73 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
74 FORX=1TO19:PRINT"[194]";TAB(38)"[194]":NEXT
75 IFP=1THENFORX=1TO2:PRINT"[194]";TAB(38)"[194]":NEXT:P=0:GOTO79
76 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
77 BM$="SELECT OPTION"
78 PRINT"[194]";TAB((40-LEN(BM$))/2)BM$;TAB(38)"[194]"
79 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]";:RETURN
80 REM*----------------------------*
81 REM CURSOR GET
82 REM*----------------------------*
83 PRINT"":FORI=1TONP:PRINTTAB(10);V$(I):NEXT
84 POKE198,0:RL%=1:GOSUB94
85 GETCC$:ON-(CC$="")GOTO85
86 Z%=ASC(CC$):TR%=RL%
87 IF(Z%AND127)=17THENRL%=(RL%+1+2*(Z%=145))
88 IFRL%>NPTHENRL%=RL%-NP
89 IFRL%=0ORRL%=-1THENRL%=1
90 IFZ%=13THENRETURN
91 IFTR%<>RL%THENGOSUB93
92 GOTO85
93 POKE214,TR%+2:PRINT:PRINTTAB(10);V$(TR%)
94 POKE214,RL%+2:PRINT:PRINTTAB(10);"";V$(RL%):RETURN